Select Code to Download

#/usr/bin/perl -w

...
}

close(FILE1);

GAVARC|10.3.|Tahkoluoto|1m
SOMMOL|10.3.|Tahkoluoto|7m
GAVSTE|7.4.|Preiviiki|1p
GAVARC|7.4.|Preiviiki|2p
SOMMOL|16.3.|Kallo|6m

my @data;

...

# I'm assuming you want the | delimiters in the output?
print join "\n", @sorted;