I could write your code for you, but that won't help you much. Instead I recommend that you go and read the Llama book. You need to learn about interpolation and what the @ and $ sigils mean.

I'm also not sure what this 'prglst' that you speak of is. It's not part of perl.