my $result = second( \@num );

sub second {
    my ( $aref ) = @_;
    my @new_array = @$aref;
    # my $new_ref = [ @$aref ]; # alternative