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