#!/usr/bin/perl
use strict;
use warnings;
#use 5.010;

my %folderhash2 = (
   '1005' => 'SG',
   '1007' => 'NA',
   '1010' => 'Global',
   '0' => 'None',
   '1006' => 'Link',
   );

foreach my $folderMap2 (sort keys %folderhash2) {
    printf "%-8s %s\n", $folderMap2, $folderhash2{$folderMap2};
}