sub msg {
           $msg_num = @_[0];
# ...

##</code><code>##

@_[0] # An array slice
$_[0] # The first element of the array @_ (usually passed to the subroutine)