Thanks all :)

I ran the code before posting. Though I got the result I expected, I wasn't sure whether it was valid perl code in the sense of whether people would actually write it that way.