#!/usr/bin/perl

open (IN, "<testfile");
@array = <IN>;
close IN

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