open (SAVE, ">save.txt");
for (keys %cords) {
    print SAVE $_ . "=" . join("|", @{ $cords{$_} }) . "\n";
}
close SAVE;


##</code><code>##

my %cords;
open GET, "save.txt";
for (<GET>) {
    chomp $_;
    my ($name, $value) = split(/=/, $_);
    @{ $cords{$name} } = split(/\|/, $value);
}
close GET;