use strict;
use warnings;

my $sum = 0;

while (my $line = <DATA>) {

  chomp $line;
  print "Original data:[$line]\n";
  my ($target,$variables) = split (/;/ , $line);
  print "\t$target\n";
  print "\t$variables\n";
}

__DATA__
planet;World|Earth
planet;celestial body|moon
psychology;therapy|sociology
psychology;humanity|sociology