my$arg=shift; gives you the next Argument whether in main or in sub thanks to the magic shift!