#!/usr/bin/perl --
my @argv = @ARGV;
... your code here ...
use Data::Dump;
dd {  before => \@argv, after => \@ARGV };