sub handleinput {
    my $input = @_;
...