fast(\@data);
sub fast {
    my $arr = $_[0];
    my $x = $arr->[0];
}