#!/usr/bin/perl
my $var = "0715";
my $padlength = 6;
my $formatted = reverse(sprintf("%0" . $padlength . "s", scalar(reverse($var))));

print($formatted);