use Benchmark qw/ cmpthese /;
$x = 42.0;
%h = ();
cmpthese( -1, {
    F => sub { $h{ pack 'F', $x } = 1 },
    s => sub { $h{ $x }           = 1 },
});