#!/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 /:/;     


       }