#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my %hash=(foo => 1, bar => 2, baz => 3);
$hash{$_}="|$hash{$_}|" for keys %hash;
print Dumper \%hash;

__END__