my @arr = ('a', 'b', 'c');
    sub dosth {
        my $first = shift;
    }

    dosth(@arr);
    print "@arr";