sub to_cache {

    my $ticker = shift;
    my $data = shift;

    print scalar @$data; ############# What would be printed?

    my @list;

    foreach(@$data) {
        push @list, pack("A10FFFFL", @$_);
    }

    $data_cache{$ticker} = \@list;
}