use Data::Dumper;

sub get_day_name { "hlaghlag"; }

print Dumper { map { $_ => get_day_name($_) } <DATA> };

__END__
foo
bar
baz