I don't understand "how to create it in the perl code" given that what you show is Perl code. What are you actually having trouble with? Maybe you should give us some context so we understand where you are coming from?