my $s = 'longstring';
my %hash = (
    key1 => $s,
    key2 => alter($s),
);