$a = sub {return @_[0]}; (yes I know....)