#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my $string = 'February 1 March 5 July 4';
my @result_of_split =  split ' ', $string;
print Dumper \@result_of_split;

=prints: (@result_of_split)
$VAR1 = [
          'February',
          '1',
          'March',
          '5',
          'July',
          '4'
        ];
=cut        

my %hash = @result_of_split; #assign array to hash
print Dumper \%hash;

=prints: (%hash)
$VAR1 = {
          'February' => '1',
          'July' => '4',
          'March' => '5'
        };
=cut        

my @array = %hash;    #assign hash back to an array
print Dumper \@array;

=prints: (@array) back again
$VAR1 = [
          'February',
          '1',
          'March',
          '5',
          'July',
          '4'
        ];
=cut