#!/usr/bin/perl 

my $env = "1 2 3 4 5";

my %h = split //, $env;

use Data::Dumper;

print Dumper \%h;