#!/usr/bin/perl

use warnings;
use strict;
use feature qw( say );

while(my $line = <DATA>) {

        chomp $line;

        my $zahl = sprintf("%05s", $line);

        say $zahl;

} # while

__DATA__
506
200