#!/usr/bin/perl

use strict;
use warnings;

my $in;
open($in, "<", "testfile") or die "$in kann nicht geoeffnet werden: $!";
my @array = <$in>;
close($in) or die "$in kann nicht geschlossen werden: $!";;

if ($array[0] == 23) {
   print "Is 23\n"
} else {
  print "Is nich 23\n"
}