#!/usr/bin/perl -w
#
#
my @data = (7, 314, 23, 513465, 4444, 29 );

for (@data) {
    print " Num: ", six_zeroes($_), "\n";
}

sub six_zeroes {
    my $num = shift;
    return substr("000000" . $num, -6 );
}