Select Code to Download

my @array = (1, 2, 3, 4, 5, 6);
my %hash = @array;

my %hash = ( 1 => 2, 3 => 4, 5 => 6 );

open my $file, '<', $filename or die "Unable to open '$filename': $!";
my %edit;
...
  $edit{$key} = $_;
}
close $file;