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

my %account = (
    ewh1234 => {
        job  => 'engineer',
        foo  => 23.4,
        bar  => 1.2,
        area => 'local'
    }
);

print $account{ewh1234}{foo}, "\n";
print Dumper($account{ewh1234});

__END__
23.4
$VAR1 = {
          'bar' => '1.2',
          'area' => 'local',
          'foo' => '23.4',
          'job' => 'engineer'
        };