Artist: Rock 
Title: Fusion 
Album: Fusion 
Year: 2002 
Genre: Other 
Artist: MelB 
Title: who am i
Album: donny 
Year: 2004 
Genre: Other 
Artist: bon jo 
Title: i can stay 
Album : Armyman 
Year: 2009 
Genre: Other 
Artist: Pearl 
Title: Last 
Album: Jam 
Year: 1983 
Genre: Other
##</code><code>##

Artist   Title   Album Year  Genre 
------  -----   -----  ----- ----- 
Rock    Fusion  Fusion 2002  other 
MelB   who am I dont   2003 other
bon jo  Armyman jojo   2009 others 
etc.
#!/usr/bin/perl 
use warnings; 
use strict; 
my %hasharray; open (my $fh, "<", "C:/songdata1.txt") or die "can't open the file";
 while (<$fh>){
 my ($header,$info) = split /:/; }