Select Code to Download

#!/usr/bin/perl

...

print "Print of passwd_clean_data outside of function:\n";
print Dumper(@passwd_clean_data);

Dump of data_file in function:
Dump of data_file in function:
...
$VAR66 = 'postfix:x:105:106::/var/spool/postfix:/bin/false';
$VAR67 = 'bind:x:106:108::/var/cache/bind:/bin/false';
$VAR68 = 'ntp:x:107:109::/home/ntp:/bin/false';