Fruit Jan feb mar apr
      Apple  40  45  50  54
      orange 12  25  24  29
      Pineapple 10 20 30 40

##</code><code>##

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

##</code><code>##

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}}));
}