bash awk codes to perl

Hi,

I am interesting in writing the following bash codes into perl

My script is simple take field 2 in /etc/passwd and put into an array

#!/bin/bash
PASSWD_FILE=/etc/passwd
A=(`awk -F: ' { print $2 }' $PASSWD_FILE `)

Can someone give me equivalent codes in perl ?

how about trying it out

1) read the file line by line using while loop
2) split the line by ":" as delimiter
3) get the second element using array indices.