use strict;
use warnings;
use feature qw/ say /;
use Data::Dumper;

my %data = (
  'foo'    => 'bar',
  '$cheese' => 'cabrales',
  'USERNAME' => $ENV{'USERNAME'}
);

say Dumper( \%data );