while(@ARGV)
{
$arg = shift(@ARGV)
}