Belajar Array Perl

#!/usr/bin/perl

@nama = ("anto", "hilmi", "khafindi", "faris");
@rumah = ("mlonggo", "bugel", "margoyoso", "wanusobo");

print "nama = ";
foreach $nm (@nama){
    print "$nm, ";
}
print "\n\n";

print "rumah ",@nama[1]," ada di ",@rumah[1],"\n\n";

print "rumah =\n";
for (my $var = 0; $var < 4; $var++) {
    print "@nama[$var] : @rumah[$var]\n\n"
}