fetchrow_array returns an array and it is assigning into an array. This is a pretty standard idiom for reading single columns. The while loop even distinguishes between an empty array for end of the data set and undef for NULL value.
my ($identifier)=$sth->fetchrow_array();
my @array = $sth->fetchrow_array();
($identifier) = @array;