while (<$page>) {
    my %localprop;
    @localprop{ qw(Prop
        colour
        txtcol
        url360
        user
        your_name
        address
        town
        zip_code
        country
        email
        telephone_no
        telephone_no2
        theme
        web_address
        ppemail) } = split /\t/;
    $onprop{ $localprop{Prop} } = \%localprop;
    push @dataarray, $localprop{$user};
}