Select Code to Download

#!/usr/bin/perl

use strict;
...

my $check_data = retrieve($file);
print 'why is this here? ', $$check_data{'item'}, $/;

item: Here I am
gone (error as expected): Here I am
why is this here? Here I am