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