foreach my $row ( @array ) { $hash{ $row->[ 6 ] } = $row->[ 7 ]; } #### foreach my $i ( 0 .. $#array ) { $hash{ $array[ $i ][ 6 ] } = $array[ $i ][ 7 ]; } #### my %hash = map { $row->[ 6 ] => $row->[ 7 ] } @array;