I have a text file which contains fruits data which get sold every month as below

file name is fruits.txt

the text file data looks like as below.Please  get average of the values stored in array as well.I have tried harder to get the ouput but stuck. 
Fruit Jan feb mar apr
      Apple  40  45  50  54
      orange 12  25  24  29
      Pineapple 10 20 30 40

[download]

I want output as below

{apple => [40,45,50,54]
 Orange =>[12,25,24,29]}

[download]

i have written a code for the above desired ouput.Please find my code below

use strict;
use warnings;
 
my $filename = 'fruits.txt';

#opening the text file
open(DATA, '<', $filename)
  or die "Could not open file '$filename' $!";
  
 readline(DATA);#skipping the header

my %data;

while (<DATA>) {
    my @fields = split;
    my $key = join(' ', splice(@fields, 0, 2));
    $data{$key} = \@fields;
}

for my $key (sort(keys(%data))) {
    printf("%s=> %s\n", $key, join(' ', @{$data{$key}}));
}

[download]

In reply to Adding text file data to hashes and array by Tigor

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.