#!/usr/bin/perl -w

use strict;
use warnings;

my $i = 1;

for (sort keys %ENV){
    print "$i $_\n";
    $i++;
}