open (OUT, "data.txt") || die "Can't open the data file";


foreach $i ($data[0], $data[1]){
chomp($i);
($short,$place) = split(/\|/,$i);


%stuff = (
'$short' => '$place',

);

close(OUT);

}