use strict;
use Data::Dumper;

my @data = ();

while (<DATA>) {
  push(@data,[split(/;/)]);
}

print $data[0]->[1];
_ _DATA_ _
KWER02;262;P1-3-1-1-5-2.0;80077
KWER02;15;P1-3-1-1-5-2.0;80078
KWER02;262;P1-3-1-1-5-1.0;80078