use Storable qw(retrieve);

my $ports = retrieve("$ENV{HOME}/flat_file.dat");