open PAGE, "$website" or die "Cant open $website: $!";
flock (PAGE, 1) or die "Can't lock website file for reading";

##</code><code>##

while (my $line = (<PAGE>))  {
($Prop,$colour,$txtcol,$url360,$user,$your_name,$address,$town,$zip_code,$country,$email,$telephone_no,$telephone_no2,$theme,$web_address,$ppemail,undef,undef,undef) = split "\t", $line;
#create array of users and hash of data
    $onprop{$Prop} = [$Prop,$colour,$txtcol,$url360,$user,$your_name,$address,$town,$zip_code,$country,$email,$telephone_no,$telephone_no2,$theme,$web_address,$ppemail];
    push (@dataarray, $user);
}

##</code><code>##

while (<@dataarray>) {

##</code><code>##

        unless (! $item) {

##</code><code>##

        if ($item) { ...

##</code><code>##

        next unless $item;