Traversing Hash printing two times

[Jatin Davey]

 Hi

I am a newbie to Perl , I have this piece of code :
*CODE:*

#!/usr/bin/perl
use warnings;
use strict;

my @english = qw(january february march april may june july);
my @french = qw(janvier fverier mars avril mai juin juily);

my %months;
my $eng_ref;
my $fre_ref;

$eng_ref = \...@english;
$fre_ref = \...@french;

$months{english} = $eng_ref;
$months{french} = $fre_ref;

for (keys %months) {
print "Months in english : @{$months{english}} \n";
print "Months in french : @{$months{french}} \n";
}


*OUTPUT:*

Months in english : january february march april may june july
Months in french : janvier fverier mars avril mai juin juily
Months in english : january february march april may june july
Months in french : janvier fverier mars avril mai juin juily


*Question*

Why do i get the array that i wanted two times ?
i have just added two keys into the hash then why do i get the values 
two times.

Please explain me this.

Thanks
Jatin