my ($a) =@_; picks off the first element of @_. my ($a) = shift; would get the same value into $a (bad name for a variable BTW - used by sort) and removes that element for @_.