Select Code to Download

${'STR1'} = 'STR2';

my %info;
for(@file) {
...
  $info{$name} = $val;
}
print "$info{OFFICE} - $info{NAME}\n";

if(exists $info{OFFICE}) {
  print "Ofiice: $info{OFFICE}\n";
}

@keys = keys %info;

for(sort keys %info) {
  print "$_: $info{$_}\n";
}