to bad there is not a shove array function in perl... you could submit this to your superiors...

shove @it, 'this job';
[download]

                - Ant
                - Some of my best work - Fish Dinner